home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48_2
/
pxadd
< prev
next >
Wrap
Text File
|
1995-03-31
|
344b
|
16 lines
@
@ Now can anyone do faster than this? I do not consider machine code
@ cheating ;-)
@
@USAGE: { #x #y } { #x1 #y1 } PXADD --> { #(x+x1) #(y+y1) }
@
%%HP: T(3)A(D)F(.);
@ Checksum: # BA68h
@ Bytes: 57 (When stored in a variable called PXADD)
\<< LIST\-> DROP 3
ROLLD OVER 1 GET +
3 ROLLD 2 GET + 2
\->LIST
\>>